00100	TITLE DATA
00200	INTERNAL NUMTRI,TRIBLKS,TRITAB,INPUT3,INPUT6,FFLAG,INPUT5,OUTPDL
00300	INTERNAL  ENDPDL,END6
00400	NUMTRI:	20
00500	TRIBLKS:	0
00600	BLOCK 400
00700	TRITAB:	0
00800	BLOCK 40
00900	INPUT3:
01000	DEFINE TRIANG (X1,Y1,Z1,X2,Y2,Z2,X3,Y3,Z3,N)
01100	{
01200	XWD X1,Y1
01300	XWD X2,Y2
01400	XWD X3,Y3
01500	XWD Z1,Z2
01600	XWD Z3,N
01700	⎇
01800	
01900	DEFINE QUAD (X1,Y1,X2,Y2,Z12,X3,Y3,X4,Y4,Z34)
02000	{
02100	TRIANG X1,Y1,Z12,X2,Y2,Z12,X3,Y3,Z34,5
02200	TRIANG X1,Y1,Z12,X3,Y3,Z34,X4,Y4,Z34,6
02300	⎇
02400	
02500	QUAD -500,-700,-500,-200, 200, 440,-200, 440,-700,200
02600	QUAD -440,-100,-440, 200, 600, 300, -40,300,-600, 100
02700	QUAD 0,100,0,500,100,440,500,440,100,100
02800	QUAD -440,400,-440,700,600,-240,700,-240,400,600
02900	QUAD 0,500,440,500,100,-240,700,-440,700,600
03000	QUAD 0,100,440,100,100,-240,400,-440,400,600
03100	QUAD 440,100,440,500,100,-240,700,-240,400,600
03200	QUAD 0,100,0,500,100,-440,700,-440,400,600
03205	
03210	FFLAG:	-1	;FRAME FLAG
03215	OUTPDL:	.+3
03220		
03225	INPUT5:	XWD 1200,INPUT3
03230		XWD -500,-500
03235		BLOCK 14000
03236	ENDPDL:	0	↔	0	↔	0	↔	0
03240	INPUT6:	0
03260	BLOCK 40000
03261	END6:	0 ↔ 0 ↔ 0 ↔ 0
03300	END